home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_2_of_4_Side_A.d64 / 1.zuerst laden!! (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  59 lines
  1. 1 rem dieses prg liest ganz einfach
  2. 2 rem den inhaltstext der jeweiligen
  3. 3 rem rockford-fd diskette, oder
  4. 4 rem druckt diesen aus. es handelt
  5. 5 rem sich hierbei einfach um ein
  6. 6 rem umgeschriebenes "original usa
  7. 7 [143] seq-file-reader" prg.
  8. 8 rem dieses "zuerst laden!!" prg
  9. 9 rem wird es ab rof-fd 22 auf jeder
  10. 10 rem rockford-fd diskette geben.
  11. 11 rem -----------------------------
  12. 12 rem freeware 18.12.1994 alex zop
  13. 13 rem -----------------------------
  14. 40 printchr$(142):
  15. 50 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  : rem   ^ disable 'stop'
  16. 60 b$="inhalt*"
  17. 70 print"[158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  18. 71 print"[145][158]brotkasten  rockford-freeware diskette!!"
  19. 72 print"[145][158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  20. 80 print"[158]----------------------------------------"
  21. 90 print"[145][155]um die programme dieser rockford-fd disk"
  22. 91 print"[145]problemlos anzuwenden, kannst du nun die"
  23. 92 print"[145]inhaltsbeschreibung mit allen wichtigen"
  24. 93 print"informationen, kurzanleitungen, und den"
  25. 94 print"copyright-hinweisen am bildschirm lesen"
  26. 95 print"oder auch ausdrucken lassen. viel spass!"
  27. 96 print"[145][158]----------------------------------------"
  28. 160 print"[158]  wohin soll ich den text schreiben??"
  29. 170 print"[155]  <[158]b[155]>ildschirm"spc(3)" [151]<d>rucker"spc(3)" <e>nde"
  30. 190 getg$:ifg$=""then190
  31. 200 ifg$="e"then470
  32. 210 ifg$="b"goto240
  33. 220 ifg$<>"d"then190
  34. 230 open1,4,7:q=1
  35. 240 open5,8,5,b$+",s,r":gosub420
  36. 245 print"[147][144]poke53280,0:poke53281,0
  37. 250 [153]"systantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  38. 260 [153]"onstr$ruecke (NULL)(NULL)atnlenval o. (NULL)val(NULL)(NULL)(NULL)(NULL) um den (NULL)extfluss"
  39. 270 [153]"onanzuhalten. str$ruecke nochmals um weiter- "
  40. 280 [153]"onzulesen! (NULL)it >(NULL)< beendest str$u das (NULL)(NULL)chr$!   "
  41. 290 [153]"ontantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist"
  42. 300 [161]#5,f$
  43. 310 [139]st[178]0[167]330
  44. 320 [139]st[178]64[167]440
  45. 330 [139]q[179][177]1[167][153]f$;:[137]350
  46. 340 [152]1,f$;
  47. 350 [161]a$
  48. 360 [139]a$[179][177]""[167][141]380
  49. 370 [137]300
  50. 380 [139]a$[178]"q"[167]440
  51. 390 [161]a$:[139]a$[178]""[167]390
  52. 400 [139]a$[178]"q"[167]440
  53. 410 [142]
  54. 420 [160]15:[159]15,8,15:[132]15,d,e$,f,g
  55. 430 [142]
  56. 440 q[178]0:[160]1:[160]5:[137]470
  57. 470 [151]808,237:[153]"on":[137]490
  58. 490 [151]631,13:[151]632,13:[151]198,2:[128]
  59.